home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
pc
/
egyptw.dir
/
01711_Script_Superstitions
< prev
next >
Wrap
Text File
|
1995-09-13
|
7KB
|
239 lines
global gQuest, gBeenClicked
on ESuperRollovers
set gBeenClicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(6) or rollover(7) then
repeat while rollover(6) or rollover(7)
EgyptCursor
puppetsprite 11, true
set the locH of sprite 11 to 295
set the locV of sprite 11 to 322
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
SlaveDriver
end repeat
end if
end if
end repeat
set the locH of sprite 11 to 995
puppetsprite 11, false
updatestage
else
if rollover(12) then
ArrowCursor
repeat while rollover(12)
set the locH of sprite 13 to 353
set the locV of sprite 13 to 163
updatestage
end repeat
set the locH of sprite 13 to 953
updatestage
else
if rollover(14) then
ArrowCursor
repeat while rollover(14)
set the locH of sprite 15 to 415
set the locV of sprite 15 to 248
updatestage
end repeat
set the locH of sprite 15 to 915
updatestage
else
if the mousecast = the castnum of sprite 8 then
repeat while the mousecast = the castnum of sprite 8
EgyptCursor
set the locH of sprite 28 to 559
set the locV of sprite 28 to 303
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
DropBody
end repeat
end if
end if
end repeat
set the locH of sprite 28 to 959
updatestage
else
if rollover(9) then
repeat while rollover(9)
EgyptCursor
set the locH of sprite 16 to 425
set the locV of sprite 16 to 329
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
AnimateLoopFastest 9, 670, 3, "SE390601.AIF", 5
end repeat
end if
end if
end repeat
set the locH of sprite 16 to 925
updatestage
else
if rollover(10) then
repeat while rollover(10)
EgyptCursor
set the locH of sprite 17 to 420
set the locV of sprite 17 to 320
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
AnimateLoopFast 10, 674, 5, "SE390801.AIF", 1
end repeat
end if
end if
end repeat
set the locH of sprite 17 to 920
updatestage
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on SlaveDriver
ArrowCursor
set gAnimationcast1 = 655
set gAnimationcast2 = 658
set count = 0
puppetsound "SE390201.AIF"
repeat while count < 2 and (the mouseUp)
set the castnum of sprite 6 = gAnimationcast1 + 1
updatestage
wait .5
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 6 = gAnimationcast1 + 2
set the castnum of sprite 7 = gAnimationcast2 + 1
updatestage
if (the mousedown) then
exit repeat
end if
wait .5
set the castnum of sprite 6 = gAnimationcast1 + 1
set the castnum of sprite 7 = gAnimationcast2 + 2
updatestage
if (the mousedown) then
exit repeat
end if
wait .5
set the castnum of sprite 6 = gAnimationcast1
set the castnum of sprite 7 = gAnimationcast2 + 1
updatestage
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .5
set the castnum of sprite 7 = gAnimationcast2
updatestage
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .5
set count = count + 1
end repeat
set the castnum of sprite 6 = gAnimationcast1
set the castnum of sprite 7 = gAnimationcast2
updatestage
sound fadeout 1, 2*60
set gBeenClicked = 0
end
on DropBody
ArrowCursor
set gAnimationcast1 = 661
set count = 0
repeat while count < 1 and (the mouseUp)
set the castnum of sprite 8 = gAnimationcast1 + 1
updatestage
wait .1
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 8 = gAnimationcast1 + 2
updatestage
if (the mousedown) then
exit repeat
end if
wait .1
puppetsound "SE390501.AIF"
set the castnum of sprite 8 = gAnimationcast1 + 3
updatestage
if (the mousedown) then
exit repeat
end if
wait .1
set the castnum of sprite 8 = gAnimationcast1 + 4
updatestage
if (the mousedown) then
exit repeat
end if
wait .1
set the castnum of sprite 8 = gAnimationcast1 + 5
updatestage
if (the mousedown) then
exit repeat
end if
wait .1
set the castnum of sprite 8 = gAnimationcast1 + 6
updatestage
if (the mousedown) then
exit repeat
end if
wait .1
set the castnum of sprite 8 = gAnimationcast1 + 7
updatestage
if (the mousedown) then
exit repeat
end if
wait .1
set the castnum of sprite 8 = gAnimationcast1 + 8
updatestage
if (the mousedown) then
exit repeat
end if
wait 1
set count = count + 1
end repeat
set the castnum of sprite 8 = gAnimationcast1
updatestage
puppetsound 0
set gBeenClicked = 0
end